home *** CD-ROM | disk | FTP | other *** search
/ Print Library / Print Library.iso / library / ph-init.dir / 00002.ls < prev    next >
Encoding:
Text File  |  1995-07-18  |  901 b   |  35 lines
  1. on exitFrame
  2.   global gMachineType, gDebugMode, gEjectSct
  3.   if the machineType <> 256 then
  4.     set gMachineType to "MAC"
  5.   else
  6.     set gMachineType to "PC"
  7.   end if
  8.   if gMachineType = "MAC" then
  9.     set the colorDepth to 8
  10.     if the colorDepth <> 8 then
  11.       alert("can't set colorDepth.")
  12.     end if
  13.   else
  14.     openXLib(the pathName & "FILEIO.DLL")
  15.   end if
  16.   set theObj to fileio(mnew, "read", the pathName & "DEBUG.FLG")
  17.   if objectp(theObj) then
  18.     set gDebugMode to 1
  19.     theObj(mdispose)
  20.   else
  21.     set gDebugMode to 0
  22.   end if
  23.   if gMachineType = "MAC" then
  24.     set theChObj to fileio(mnew, "read", the pathName & "EJECT_P")
  25.     if not objectp(theChObj) then
  26.       alert("Sorry!  not found Eject paper CMD file." & RETURN & "file : EJECT_P")
  27.       set gEjectSct to EMPTY
  28.     else
  29.       set gEjectSct to theChObj(mreadfile)
  30.       theChObj(mdispose)
  31.     end if
  32.   end if
  33.   go(1, "START")
  34. end
  35.